Boa Tarde
Eu estou desenvolvendo um site, onde eu quero disponibilizar arquivos PDF para download.
Acontece que quando crio um link simples para esse arquivo PDF, ao usuario clicar no arquivo, ao invés dele perguntar se ele desejo Abrir ou Salvar, ele ja tenta abrir o Acrobat direto.
Não é configuração do meu brownser, ou do Internet Explorer.
Eu gostaria de saber se há algum codigo em ASP que força o download direto, independente da extensão do arquivo, onde ao usuário clicar no link ele já realize o download direto.
Porque no meu site existem arquivos PDF muito grandes tipo de 5 a 10mb, e para o usuário ter que esperar ele abrir Acrobat demora demais...
Obrigado..
Luiz Gustavo
Downloads
Started By luizgustavo, 20/05/2006, 14:01
1 reply to this topic
#1
Posted 20/05/2006, 14:01
Luiz Gustavo Martins
Web Developer
Web Developer
#2
Posted 20/05/2006, 14:53
Com esse codigo vc pode realizar o download de qualquer arquivo ...
é so manda o endereço do arquivo por querystring ... não é muito seguro mas ta ai..
<%
strFile = Server.MapPath( Request.QueryString("file") )
file = Mid( strFile, InstrRev( strFile, "\" ) + 1 )
response.AddHeader "Content-Type","application/x-msdownload"
response.AddHeader "Content-Disposition","attachment; filename="&file
Response.Buffer = True
Const adTypeBinary = 1
Set binario = Server.CreateObject("ADODB.Stream")
binario.Open
binario.Type = adTypeBinary
binario.LoadFromFile Server.MapPath(Request.Querystring("file"))
Response.BinaryWrite binario.Read
binario.Close
Set binario = Nothing
Response.Flush
%>
Valeu
é so manda o endereço do arquivo por querystring ... não é muito seguro mas ta ai..
<%
strFile = Server.MapPath( Request.QueryString("file") )
file = Mid( strFile, InstrRev( strFile, "\" ) + 1 )
response.AddHeader "Content-Type","application/x-msdownload"
response.AddHeader "Content-Disposition","attachment; filename="&file
Response.Buffer = True
Const adTypeBinary = 1
Set binario = Server.CreateObject("ADODB.Stream")
binario.Open
binario.Type = adTypeBinary
binario.LoadFromFile Server.MapPath(Request.Querystring("file"))
Response.BinaryWrite binario.Read
binario.Close
Set binario = Nothing
Response.Flush
%>
Valeu
Não me adicione no MSN pq eu não vo te ajuda... se insistir eu vo ser grosso!!!
Ta com dúvida pergunta aqui no fórum...
Grato
Ta com dúvida pergunta aqui no fórum...
Grato
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)